home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / PRODUCT / STARTUP.PRG < prev   
Text File  |  1991-12-11  |  3KB  |  98 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 07/03/1991               startup.prg             15:11:52 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Description:                                            ║
  8. *       ║ This program was automatically generated by FoxApp.     ║
  9. *       ║                                                         ║
  10. *       ╙─────────────────────────────────────────────────────────╜
  11. *
  12. *       To run this application, type DO PRODUCT.APP
  13. *
  14. * Set up runtime environment
  15. CREATE VIEW appview
  16. PUSH MENU _msysmenu
  17. SET SAFETY OFF
  18. SAVE MACROS TO foxapp
  19. SET SAFETY ON
  20. SET TALK OFF
  21. SET DELETED ON
  22. SET ESCAPE OFF
  23. SET STEP OFF
  24. SET ECHO OFF
  25. SET PROCEDURE TO appproc.prg
  26. SET CURSOR ON
  27. ON ERROR DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR()
  28. IF TYPE("BAILOUT") <> "U"
  29.    RELEASE bailout
  30. ENDIF
  31. IF TYPE("DBFNAME") <> "U"
  32.    RELEASE dbfname
  33. ENDIF
  34. IF TYPE("WIN_NAME") <> "U"
  35.    RELEASE win_name
  36. ENDIF
  37. IF TYPE("FILT_EXPR") <> "U"
  38.    RELEASE filt_expr
  39. ENDIF
  40. IF TYPE("SRCHTERM") <> "U"
  41.    RELEASE srchterm
  42. ENDIF
  43. PUBLIC bailout, dbfname, win_name, filt_expr, srchterm
  44. m.bailout = .F.
  45. m.dbfname = "D:\FP2\MODEL\PRODUCT.DBF"     && database name
  46. m.filt_expr = ""                && filter expression, if any
  47. m.srchterm = SPACE(60)          && search term
  48. DO APPMENU.PRG
  49. m.stem = juststem(m.dbfname)
  50. IF USED(m.stem)
  51.    SELECT (m.stem)
  52. ELSE
  53.    SELECT 0
  54.    m.dbfname = LOCFILE(m.dbfname,'DBF','Please locate the '+JustStem(m.dbfname)+' database')
  55.    IF EMPTY(m.dbfname)
  56.       DO alert WITH "The "+m.stem+" database;could not be found."
  57.       DO cleanup
  58.    ELSE
  59.       USE (m.dbfname)
  60.    ENDIF
  61. ENDIF
  62. SET ORDER TO 1
  63. IF RECCOUNT() = 0
  64.    APPEND BLANK
  65. ENDIF
  66. GOTO TOP
  67. CLEAR
  68. win_name = "PRODUCT"
  69. DO WHILE !bailout
  70.    KEYBOARD "{PGDN}"
  71.    * Display the screen control panel
  72.    DO appctrl WITH MIN(18,SROWS()-3),3
  73.    * Display the main screen file
  74.    DO product1.spr
  75. ENDDO
  76. DO cleanup
  77. RETURN
  78.  
  79.  
  80. PROCEDURE cleanup
  81. * Clean up after the application
  82. SET PROCEDURE TO
  83. CLOSE DATABASES
  84. CLEAR WINDOWS
  85. * Restore databases, indexes and environment
  86. IF FILE("appview.vue")
  87.    SET VIEW TO appview
  88.    DELETE FILE appview.vue
  89. ENDIF
  90. IF FILE("foxapp.fky")
  91.    RESTORE MACROS FROM foxapp
  92.    DELETE FILE foxapp.fky
  93. ENDIF
  94. POP MENU _msysmenu
  95. CLEAR PROGRAM
  96. ON ERROR
  97. SET SAFETY ON
  98. RETURN